home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 089 - Misc Stuff - PD.dsk / PRDEC.S < prev    next >
Text File  |  2019-02-17  |  2KB  |  73 lines
  1. ****************************
  2. *                          *
  3. *         PRDEC            *
  4. * INTEGER BASIC SUBROUTINE *
  5. *                          *
  6. *      BY S. WOZNIAK       *
  7. *                          *
  8. *  COPYRIGHT (C) 1976 BY   *
  9. *   APPLE COMPUTER, INC.   *
  10. *   ALL RIGHTS  RESERVED   *
  11. *                          *
  12. ****************************
  13.  
  14. STARTFLG  EQU $C9
  15. LOW       EQU $F2
  16. HI        EQU $F3
  17. AUTOFLG   EQU $F8
  18. DIGIT     EQU $F9
  19. JUSTIFY   EQU $FA        ;0 FOR LEFT, $A0 FOR RIGHT
  20. IN        EQU $200
  21. COUT      EQU $FDED
  22.  
  23.           ORG $300
  24.  
  25. PRDEC     STA HI
  26.           STX LOW
  27.           LDX #$04
  28.           STX STARTFLG
  29. NXDIGIT   LDA #"0"
  30.           STA DIGIT
  31. SUBTRCT   LDA LOW
  32.           CMP NUMLOW,X
  33.           LDA HI
  34.           SBC NUMHI,X
  35.           BCC GETDIG
  36.           STA HI
  37.           LDA LOW
  38.           SBC NUMLOW,X
  39.           STA LOW
  40.           INC DIGIT
  41.           BNE SUBTRCT
  42. GETDIG    LDA DIGIT
  43.           INX
  44.           DEX
  45.           BEQ PRINT
  46.           CMP #"0"
  47.           BEQ CHKFLGS
  48.           STA STARTFLG
  49. CHKFLGS   BIT STARTFLG
  50.           BMI PRINT
  51.           LDA JUSTIFY
  52.           BEQ NXTX
  53. PRINT     JSR COUT
  54.           BIT AUTOFLG    ;THESE 4 LINES
  55.           BPL NXTX       ;ARE FOR AUTO-LINE
  56.           STA IN,Y       ;NUMBERING AND CAN
  57.           INY            ;BE DELETED.
  58. NXTX      DEX
  59.           BPL NXDIGIT
  60.           RTS
  61.  
  62. NUMLOW    DFB 1
  63.           DFB 10
  64.           DFB 100
  65.           DFB 1000
  66.           DFB 10000
  67.  
  68. NUMHI     DFB >1
  69.           DFB >10
  70.           DFB >100
  71.           DFB >1000
  72.           DFB >10000
  73.